COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	INSTRUMENT GLIS2
C00004 ENDMK
C⊗;
INSTRUMENT GLIS2;
OSCIL(P4,MAG/P2,P5);
OSCIL(MAG*P7-MAG*P3, MAG/P2,P10);
OSCIL(U2,MAG/P8,P9);
OSCIL(U1,MAG*P3+U3,P6);
OUTA←OUTA+U4; END;
INSTRUMENT GLISS;
OSCIL(P4,MAG/P2,P5);
OSCIL(P7*MAG-MAG*P3,MAG/P8,P9);
OSCIL(U1,U2+MAG*P3,P6);
OUTA←OUTA+U3;END;
INSTRUMENT FM;
OSCIL(P4,MAG/P2,P5);
INTRP(P9*P7*MAG,P9*P8*MAG,P10);
OSCIL(U2,P9*MAG,P11);
NOSCIL(U1,U3+P3*MAG,P6);
OUTA←OUTA+U4; END;

INSTRUMENT FM2;
OSCIL(P4,MAG/P2,P5);
INTRP(P9*P7*MAG,P9*P8*MAG,P10);
OSCIL(U2,P9*MAG,P11);
NOSCIL(U1,U3+P3*MAG,P6);
OUTA←OUTA+U4; END;
INSTRUMENT NOISE;
OSCIL(P4,MAG/P2,P5);
RANDH(MAG*P7,MAG*P8);
OSCIL(U1,MAG*P3+U2,P6);
OUTA←OUTA+U3; END;

INSTRUMENT NOISX;
OSCIL(P4,MAG/P2,P5);
OSCIL(MAG*P9,MAG/P10,P11);
RANDH(U2+MAG*P7,MAG*P8);
OSCIL(U1,MAG*P3+U3,P6);
OUTA←OUTA+U4; END;

ARRAY F5,F6,F7(512); <F1 is already present.
SEG(F5);0,1  1,7  .7,12  .2,20  0,100;<Envelope
SEG(F6);0,1  0,60  1,100; <Slope
SYNTH(F1);1 1 3 .3  5 .2  7 .001 999;
SEG(F7);0 1 1 100;


PLAY;GLIS2 0 .5 100 2000 F5 F1 P3+5 .5 F6 F7;FINISH;